00100	BEGIN "CNVERT"
00200		REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
00300		ITG ARRAY HEAD1[1:300];
00400		PRELOAD_WITH 7,0,6,288,48,20,235,28,315,10368;
00500		ITG ARRAY HEAD2[0:9];
00600		SAFE ITG ARRAY TV1[0:216*288%6]
00700		SAFE ITG ARRAY TV2[0:10368];
00710	
00720		ITG X,R,C,PTR1,PTR2;
00730	
00800	
00900	α READ FILE IN;
01000		OPEN(1,"DSK",8,2,0,0,0,0);
01100		LOOKUP(1,"R12.TMP",0);
01200		ARRYIN(1,HEAD1[1],128);
01300		ARRYIN(1,TV1[0],216*288%6);
01400		RELEASE(1);
01500	
01600		OUTSTR(9&"EOF INPUT"&↓&↓);
     

00100	α TRANSFORMATE;
00200		FOR R←0 TO 208 DO
00300		BEGIN
00400			IF (R MOD 10)=0 THEN OUTSTR(9&CVS(R));
00500			PTR1 ← POINT(4,TV1[R*33],-1);
00600			PTR2 ← POINT(6,TV2[R*48],-1);
00700		FOR C←0 TO 287 DO
00800		BEGIN
00900			X ← ILDB(PTR1) LSH 2;
01000			IDPB(X,PTR2);
01100		END;
01200		END;
01300		OUTSTR(9&"END OF TRANSFORMATION"&↓);
01400	
01500	α WRITE FILE OUT;
01600		OPEN(1,"DSK",8,0,3,0,0,0);
01700		ENTER(1,"DBA.TMP",0);
01800		ARRYOUT(1,HEAD2[0],10);
01900		ARRYOUT(1,TV2[0],10367);
02000		RELEASE(1);
02100		OUTSTR("EOF"&↓);
02200	
02300	END;